1 REM LASER - DEMO- UND STEUER-PROGRAMM
2 REM VON NIKOLAUS HEUSLER         8.91
3 REM ZWENGAUERWEG 18, 8000 MUENCHEN 71
4 :
10 IFPEEK(49155)<>3THENLOAD"LASER.CODE",8,8
20 SYS49152
100 PRINT"[147]LASER - DEMO- UND STEUERPROGRAMM
110 [153]"STEUERUNG: (+) MOTOR 1 SCHNELLER
112 PRINT"           (-) MOTOR 1 LANGSAMER
114 [153]"           (1) MOTOR 1 AN/AUS
120 PRINT"           (>) MOTOR 2 SCHNELLER
122 [153]"           (<) MOTOR 2 LANGSAMER
124 PRINT"           (2) MOTOR 2 AN/AUS
126 [153]"           (_) MOTOR 2 VOR/RUECK
128 PRINT"           ([) BREMSE HOCH
129 [153]"           (]) BREMSE RUNTER
130 PRINT"WERDEN DIE TASTEN MIT (SHIFT) BETAETIGT,
132 [153]"ONSO ERFOLGT DIE AENDERUNG IN GROESSEREN
134 PRINT"STUFEN.
136 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
190 M1=85:M2=168:BR=60:S1=1:S2=1:R=1
200 PRINT"MOTOR 1: GESCHWINDIGKEIT =  ";
202 IFS1=0THENPRINT"AUS  ":GOTO210
204 PRINTM1"[157]   "
210 PRINT"MOTOR 2: GESCHWINDIGKEIT =";
212 IFS2=0THENPRINT"  AUS  ":GOTO220
214 IFR=1THENPRINT" +";:GOTO216
215 PRINT" -";
216 PRINTM2"[157]   "
220 PRINT"BREMSE:                  =  "BR"[157]   "
230 POKE6,BR:POKE2,S1:POKE3,S2*R:POKE4,M1:POKE5,M2
300 GETA$:POKE198,.
310 IFA$="+"THENM1=M1+1:IFM1>255THENM1=255
312 IFA$="[219]"THENM1=M1+16:IFM1>255THENM1=255
314 IFA$="-"THENM1=M1-1:IFM1<10THENM1=10
316 IFA$="[221]"THENM1=M1-16:IFM1<10THENM1=10
320 IFA$="."THENM2=M2+1:IFM2>255THENM2=255
322 IFA$=">"THENM2=M2+16:IFM2>255THENM2=255
324 IFA$=","THENM2=M2-1:IFM2<10THENM2=10
326 IFA$="<"THENM2=M2-16:IFM2<10THENM2=10
330 IFA$="1"THENS1=1-S1
332 IFA$="2"THENS2=1-S2
334 IFA$="_"THENR=256-R
340 IFA$=":"THENBR=BR+1:IFBR>255THENBR=255
342 IFA$="["THENBR=BR+16:IFBR>255THENBR=255
344 IFA$=";"THENBR=BR-1:IFBR<1THENBR=1
346 IFA$="]"THENBR=BR-16:IFBR<1THENBR=1
390 GOTO200